﻿'-------------------------------------------
'Desenvolvido por Jairo dos Santos, Fev/2011
'-------------------------------------------

'Classe desenvolvida para retornar uma máscara para um TextBox,
'à partir da sigla do estado que foi fornecida

Public Class InscricaoEstadual

    'Exemplo de siglaEstado: "SP"
    Public Shared Function criarMascara(ByVal siglaEstado As String) As String

        Dim mascara As String = Nothing

        Select Case (siglaEstado.ToUpper)
            Case "AC"
                mascara = "00.000.000/000-00"
            Case "AL"
                mascara = "000000000"
            Case "AM"
                mascara = "00.000.000-0"
            Case "AP"
                mascara = "000000000"
            Case "BA"
                mascara = "000.000.00-0"
            Case "CE"
                mascara = "00000000-0"
            Case "DF"
                mascara = "00000000000-00"
            Case "ES"
                mascara = "000.000.00-0"
            Case "GO"
                mascara = "00.000.000-0"
            Case "MA"
                mascara = "000000000"
            Case "MG"
                mascara = "000.000.000/0000"
            Case "MS"
                mascara = "000000000"
            Case "MT"
                mascara = "000000000"
            Case "PA"
                mascara = "00.00000-0"
            Case "PB"
                mascara = "00000000-0"
            Case "PE"
                mascara = "00.0.000.000000-0"
            Case "PI"
                mascara = "000000000"
            Case "PR"
                mascara = "00000000-0"
            Case "RJ"
                mascara = "00.000.00-0"
            Case "RN"
                mascara = "00.000.000-0"
            Case "RO"
                mascara = "000.00000-0"
            Case "RR"
                mascara = "00000000-0"
            Case "RS"
                mascara = "000-0000000"
            Case "SC"
                mascara = "000.000.000"
            Case "SE"
                mascara = "000000000-0"
            Case "SP"
                mascara = "000.000.000.000"
            Case "TO"
                mascara = "00000000000"

            Case Else
                mascara = Nothing

        End Select

        Return (mascara)
    End Function
End Class